(ucs-set-table-for-input): If

translation-table-for-encode is a symbol, get its
translation-table property.

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index d91a4b9fbf29aecfb92569455cb461f4c4e57d51..476c8dfc19116516d0f49984ba14fd266cc9da96 100644 (file)
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -2507,6 +2507,8 @@ BUFFER defaults to the current buffer."
                     (coding-system-base default-buffer-file-coding-system))))
       (when cs
        (setq table (coding-system-get cs 'translation-table-for-encode))
+       (if (and table (symbolp table))
+           (setq table (get table 'translation-table)))
        (unless (char-table-p table)
          (setq table (coding-system-get cs 'translation-table-for-input)))
        (when (char-table-p table)